<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")
qIdentificador = request.querystring("qIdentificador")

'// Recuperar los parametros WhereToGo y WhatToDo
WhereToGo = request.QueryString("WhereToGo")
if WhereToGo = "" then WhereToGo = 0
WhatToDo = request.QueryString("WhatToDo")
if WhatToDo = "" then WhatToDo = 0

'// Comando para Ediar Registro
if WhatToDo = "cmdEdit" then
	'// Recuperar datos de cada indice
	qRegistro = request.QueryString("qRegistro")
	
	if qRegistro = "" then qRegistro = 0
	
	WhereToGo = 0
	
	sSQL = ""
	sSQL = sSQL & " SELECT pro"& qGestion &"_id, pro"& qGestion &"_objetivo, pro"& qGestion &"_ponderacion, pro"& qGestion &"_proceso "
	sSQL = sSQL & " FROM Procesos"& qGestion &""
	sSQL = sSQL & " WHERE (pro"& qGestion &"_id = "& qRegistro &")"
	MR = MatrixBD(sSQL, 1)
	If VarType(MR) = 8  then
		QRe = -1
	Else
		QRe = UBound(MR,2)	
	End If
	
	If QRe <> -1 Then
		var0 = MR(0,0)
		var1 = MR(1,0)
		var2 = MR(2,0)
		var3 = MR(3,0)
		WhereToGo = 1
	End If
End If
%>
<%
'// Comando para Guardar Registro Editado 
If WhatToDo = "cmdEditSave" Then
	WhereToGo = 0
    var0 = Request.Form("var0")
    var1 = Request.Form("var1")
    var2 = Request.Form("var2")
	
    If len(var0) = 0 then  var0 = "0"
    If len(var1) = 0 then  var1 = "0"
    If len(var2) = 0 then  var2 = "0"
    
    var0 = trim(var0)
    var1 = trim(var1)
    var2 = trim(var2)
	
    sSQL = ""
    sSQL = sSQL & " UPDATE Procesos"& qGestion &" SET"
    sSQL = sSQL & " pro"& qGestion &"_ponderacion = " & var2 & ""
    sSQL = sSQL & " WHERE pro"& qGestion &"_id = " & var0 & ""
    Resultado = ExecuteBD(sSQL, 1)
	
	 '/ verificar si se modifico correctamente
	If Trim(Resultado) = "Proceso concluido" Then
		response.Cookies("poa_cookies_llave_mensaje") 	= "DONE"
		response.Cookies("poa_cookies_ruta_siguiente") 	= "FrmPPAPproceso.asp?qIdentificador="& qIdentificador
		response.Cookies("poa_cookies_texto_mensaje") 	= "El registro se ha modificado satisfactoriamente."
		response.redirect "MensajeSimple.asp" 
	else
		response.Cookies("poa_cookies_llave_mensaje") 	= "NONE"
		response.Cookies("poa_cookies_ruta_siguiente") 	= "FrmPPAPproceso.asp?qIdentificador="& qIdentificador
		response.Cookies("poa_cookies_texto_mensaje") 	= "Existe un error al intentar modificar el registro, verifique e int&eacute;ntelo nuevamente."
		response.redirect "MensajeSimple.asp"
	End If
End If
%>
<%
sSQL = ""
sSQL = sSQL & " SELECT pro"& qGestion &"_id, pro"& qGestion &"_proceso, pro"& qGestion &"_objetivo, pro"& qGestion &"_codigo, pro"& qGestion &"_ponderacion"
sSQL = sSQL & " FROM Procesos"& qGestion &""
sSQL = sSQL & " WHERE (p"& qGestion &"_id = "& qIdentificador &") order by pro"& qGestion &"_codigo"
'Response.Write (sSQL)
MatrizProcesos = MatrixBD(sSQL, 1)
If VarType(MatrizProcesos) = 8  then
	QProductos = -1
Else
	QProductos = UBound(MatrizProcesos,2)	
End If
%>

<!-- Pagina de inicio -->
<% if WhereToGo = 0 then %>     
<table width="90%" border="0" cellspacing="1" cellpadding="2" align="center">
  <tr>
	<td class="EncabezadoTablaDegradado" align="center" width="30">No.</td>
    <td class="EncabezadoTablaDegradado" align="center" width="20%">C&oacute;digo</td>
	<td class="EncabezadoTablaDegradado" align="center" width="20%">Actividad</td>
	<td class="EncabezadoTablaDegradado" align="center" width="50%">Objetivo</td>
	<td class="EncabezadoTablaDegradado" align="center" width="10%">Ponderaci&oacute;n</td>
	<td class="EncabezadoTablaDegradado" align="center" width="20" title="Cambiar Ponderacion">CP</td>
  </tr>
  <% Total = 0 %>
  <% for m = 0 to QProductos %>
  <%
  if m mod 2 = 0 Then
  bgcolor = "TablaFila1"
  Else
  bgcolor = "TablaFila2"
  End If
  %>
  <tr class="<%=bgcolor%>">
	<td><%=m+1%></td>
    <td><%=MatrizProcesos(3,m)%></td>
	<td><%=MatrizProcesos(1,m)%></td>
	<td><%=MatrizProcesos(2,m)%></td>
	<td align="right"><%=MatrizProcesos(4,m)%>%</td>
	<td align="center"><a href="FrmPPAPproceso.asp?WhatToDo=cmdEdit&qRegistro=<%=MatrizProcesos(0,m)%>&qIdentificador=<%=qIdentificador%>"><img src="Iconos/page_edit.png" width="16" height="16" border="0" align="absmiddle"></a></td>
  </tr>
  <% Total = Total + CDbl(MatrizProcesos(4,m)) %>
  <% next %>
  <tr>
	<td colspan="4" align="right"><font size="1">TOTAL</font></td>
	<td align="right"><font size="1"><%=Total%>%</font></td>
	<td>
	<% If CInt(Total) = 100 Then %>
		<img src="Iconos/tick.png" width="16" height="16">
	<% Else %>
		<img src="Iconos/cross.png" width="16" height="16">
	<% End If %>
	</td>
  </tr>
</table>
<% end if %>

<!-- Modificar Ponderacion -->
<% if WhereToGo = 1 then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>Ponderaci&oacute;n de Actividades (Editar)</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>
    
	<form action="FrmPPAPproceso.asp?WhatToDo=cmdEditSave&qIdentificador=<%=qIdentificador%>" method="post" name="frmEdit">
    <table width="60%" border="0" cellspacing="1" cellpadding="3" align="center">
	  <tr>
		  <td width="40%" class="EncabezadoTablaDegradado">Actividad</td>
		  <td width="60%"><textarea name="var1" rows="6" disabled class="TextoTam1"><%=var3%></textarea></td>
	  </tr>
    <tr>
		<td width="40%" class="EncabezadoTablaDegradado"><input name="var0" type="hidden" value="<%=var0%>">Objetivo</td>
		<td width="60%"><textarea name="var1" rows="6" disabled class="TextoTam1"><%=var1%></textarea></td>
	  </tr>
      <tr>
		<td width="40%" class="EncabezadoTablaDegradado">Ponderaci&oacute;n</td>
		<td width="60%"><input name="var2" type="text" class="TextoTam6" value="<%=var2%>"> 
		  %</td>
	  </tr>
      <tr>
		<td colspan="2">&nbsp;</td>
      </tr>
	  <tr>
        <td colspan="2" align="center"><input name="Aceptar" value="   Aceptar   " type="submit" class="Boton">&nbsp;<input name="Cancelar" value="   Cancelar   " type="button" class="Boton" onClick="javascript:window.location.href='FrmPPAPproceso.asp?qIdentificador=<%=qIdentificador%>'"></td>
      </tr>
	</table>
	</form>
	</td>
  </tr>
</table>
<% end if %>